home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 205 / 205.d81 / b.toon 205 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  139 lines
  1. 0 rem fron
  2. 10 poke56,56:poke55,0:clr:poke53371,0
  3. 20 dv=peek(186):ifdv<8thendv=8
  4. 21 gosub3000
  5. 22 hz$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  6. 24 sp$="                                        "
  7. 25 eb$(4)="  -    -  "
  8. 26 eb$(0)="  @    @  "
  9. 27 eb$(1)=" @    @   "
  10. 28 eb$(2)="   @    @ "
  11. 29 eb$(3)="   @  @   "
  12. 30 poke53281,0:poke53280,0:print"[147]"
  13. 32 x=1:y=0:xx=36:yy=21:gosub100
  14. 33 printtab(4)"[158][198]ender [212]ucker's"
  15. 34 printtab(4)"[129][176][192][192][178][192][192][174] [176][192][192][192][192][192][174] [176][192][192][192][192][192][174] [176][192][192][174]  [176]
  16. 35 [153][163]4)"   (NULL)    (NULL)     (NULL) (NULL)     (NULL) (NULL)  (NULL)  (NULL)
  17. 36 printtab(4)"   [177]    [173][192][192][192][192][192][189] [173][192][192][192][192][192][189] [189]  [173][192][192][189]
  18. 37 [153][163]29)"sys(NULL)iewer"
  19. 38 [153]"list        (NULL)left$val (NULL)right$chr$left$(NULL)(NULL) (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  20. 40 [153]"         (NULL)(NULL)sys(NULL)clr(NULL)-atnsys-clr(NULL)atn(NULL)sysatnlist len(NULL)(NULL)(NULL)val(NULL)(NULL)
  21. 50 ifgthen120
  22. 60 g=1
  23. 70 sys57812"toon.font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  24. 72 poke53272,31
  25. 80 sys57812"toon.ml",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  26. 90 sys57812"toon ?.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  27. 92 sc=204*256:syssc,96,92,56
  28. 94 md=peek(64*256)
  29. 96 goto120
  30. 100 poke214,y:print
  31. 102 printtab(x)"[176]"left$(hz$,xx)"[174]"
  32. 104 fori=1toyy:printtab(x)"[221]"left$(sp$,xx)"[221]":next
  33. 106 printtab(x)"[173]"left$(hz$,xx)"[189]"
  34. 108 return
  35. 110 md=peek(64*256)
  36. 120 print" 1[154] [202]ust show the toon.
  37. 130 [153]" 2cont (NULL)how the toon and print it on a
  38. 140 print"   7-pin (1525-emulating) printer.
  39. 150 [153]" 3cont (NULL)how the toon and print it on an
  40. 160 print"   8-pin ([197]pson-emulating) printer.
  41. 170 [153]" 4cont valnter a caption for the toon.
  42. 180 print" 5[159] [210]eturn to [204][207][193][196][211][212][193][210].
  43. 190 [153]"list (NULL)ake sure your printer is on-line.
  44. 200 poke198,0
  45. 201 poke214,7:print:printtab(12)tr$(tq):tq=(tq-1)and3:print"[155]";
  46. 206 ifrnd(1)>.90thenpoke214,3:print:printtab(13)eb$(rnd(1)*5)
  47. 210 geta$:ifa$<"1"ora$>"5"then201
  48. 220 a1=val(a$):ifa1=5then40000
  49. 230 ifa1=4then690
  50. 240 ifa1=1then600
  51. 250 ifa1=2thentb=80:goto430
  52. 260 gosub680
  53. 270 poke214,11:print
  54. 280 printtab(7)"    [196][197][206][211][201][212][217]      [215][201][196][212][200]
  55. 290 [153][163]7)" 1cont (NULL)ingle       wide
  56. 300 printtab(7)" 2[154] [195]rt          normal
  57. 310 [153][163]7)" 3cont str$ouble       narrow
  58. 320 printtab(7)" 4[154] [196]ouble       wide
  59. 330 [153][163]7)" 5cont (NULL)uad         narrow
  60. 340 printtab(7)" 6[154] [209]uad         normal
  61. 342 [153][163]7)" 7open peekack to the (NULL)ain (NULL)enu
  62. 350 poke198,0
  63. 360 geta$:ifa$<"1"ora$>"7"then360
  64. 370 a2=val(a$):ifa2=1then ds=0:bt=1:tb=80
  65. 380 ifa2=2then ds=4:bt=1:tb=120
  66. 390 ifa2=3then ds=1:bt=1:tb=160
  67. 400 ifa2=4then ds=1:bt=2:tb=80
  68. 410 ifa2=5then ds=3:bt=2:tb=160
  69. 420 ifa2=6then ds=3:bt=3:tb=120
  70. 422 ifa2=7then30
  71. 430 gosub680
  72. 440 poke214,11:print
  73. 450 printtab(9)"    [212][193][194][160][208][207][211][201][212][201][207][206]
  74. 460 [153][163]9)" 1cont (NULL)eft
  75. 470 printtab(9)" 2[154]     [195]enter
  76. 480 [153][163]9)" 3cont         (NULL)ight
  77. 490 ifa2<>3anda2<>5then520
  78. 500 printtab(9)" 4[154]   [195]enter-left
  79. 510 [153][163]9)" 5cont       lenenter-right
  80. 512 printtab(9)" 6[159] [194]ack to [205]ain [205]enu
  81. 520 [151]198,0
  82. 530 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]530
  83. 532 [139]a$[178]"6"[167]30
  84. 540 [139]a$[178]"1"[167]tb[178]0:[137]600
  85. 550 [139]a$[178]"2"[167]600
  86. 560 [139]a$[178]"3"[167]tb[178]tb[172]2:[137]600
  87. 570 [139]a2[179][177]3[175]a2[179][177]5[167]520
  88. 580 [139]a$[178]"4"[167]tb[178]53:[137]600
  89. 590 tb[178]266
  90. 600 [151]251,64:[151]252,96:[151]253,92:[139]g[178]1[167][158]51456
  91. 610 [158]51459
  92. 620 [139]a1[178]2[167][158]49152,tb,md:[137]660
  93. 630 [139]a1[178]3[167][158]49155,tb,ds,bt,bt[172]320,md:[137]660
  94. 640 [151]198,0
  95. 650 [161]a$:[139]a$[178]""[167]650
  96. 660 [151]186,dv:[158]51459
  97. 670 [137]30
  98. 680 [151]214,8:[153]:[129]i[178]1[164]14:[153][163]2)[200](sp$,35):[130]:[142]
  99. 690 [151]251,64:[151]252,96:[151]253,92:[158]51456
  100. 700 [151]214,17:[153]
  101. 710 [158]51459
  102. 720 [158]sc[170]6,1,23,"print#valnter your caption here. (NULL)hen done,
  103. 730 syssc+6,1,24,"press [198]1. [208]ress [211][208][193][195][197] to begin.
  104. 740 [151]198,0
  105. 750 [161]a$:[139]a$[179][177]" "[167]750
  106. 760 [158]sc[170]6,0,23,"                                        "
  107. 770 [158]sc[170]6,0,24,"                                        stop"
  108. 780 [158]sc[170]6,1,23," waitcmd"
  109. 790 [151]198,0:[158]sc[170]3," waitcmd"
  110. 800 [161]a$:[139]a$[178]""[167]800
  111. 810 [139]a$[178][199](133)[167][158]sc[170]3," ":[158]51459:g[178]2:[137]30
  112. 820 [139]a$[178][199](20)[167][158]sc[170]3," cmdcmd":[137]790
  113. 830 [139]a$[178]"cmd"[167][158]sc[170]3," cmdcmd waitcmd":[137]790
  114. 840 [139]a$[178]""[167][158]sc[170]3,"  waitcmd":[137]790
  115. 850 [139]a$[178]""[167][158]sc[170]3," cmd waitcmd":[137]790
  116. 860 [139]a$[178]"on"[167][158]sc[170]3," oncmd waitcmd":[137]790
  117. 870 [139]a$[178][199](34)[167]790
  118. 880 [139]a$[178][199](13)[167][158]sc[170]3," "
  119. 890 [139]a$[177]"(NULL)"[167]790
  120. 900 [139]a$[177]"_"[175]a$[179]"atn"[167]790
  121. 910 [158]sc[170]3,a$
  122. 920 [137]790
  123. 3000 tr$(0)[178]"(NULL)(NULL)sys(NULL)clr(NULL)-atnsys-clr(NULL)atn(NULL)sysatn"
  124. 3003 tr$(1)[178]"(NULL)sys(NULL)clr(NULL)(NULL)-sysatnclr-(NULL)atnsys(NULL)clratn"
  125. 3004 tr$(2)[178]"sys(NULL)clr(NULL)(NULL)(NULL)sys-clratn-(NULL)sysatnclr(NULL)atn"
  126. 3005 tr$(3)[178]"clr(NULL)(NULL)(NULL)sys(NULL)clr-atn-sys(NULL)clratn(NULL)atn"
  127. 3006 [142]
  128. 10000 d[178][194](186):n$[178]"b.toon 204":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  129. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  130. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  131. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  132. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  133. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  134. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  135. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  136. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  137. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  138. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  139.